cimDiablo(diablo.selfFI.final, color.blocks = c('darkorchid', 'brown1', 'lightgreen'), comp = 1, margin=c(8,20), legend.position = "right")perf.diablo.selfFI.final <- perf(diablo.selfFI.final, validation = 'Mfold', folds = 10, nrepeat = 10, dist = 'centroids.dist')